00100	. DEVICE XGP    
00200	.spacing 10*5 mills;
00300	.EVERY HEADING(,{PAGE},)
00400	.AREA TEXT LINES 4 TO 40
00500	.FONT 1 "METL"
00600	.font 2 "METLI"
00700	.font 3 "METS"
00800	.font 4 "MUS[HHA,LCS]"
00900	.FONT 6 "BASL35"
01000	.PORTION MAIN;
01100	.PLACE TEXT;
01200	.COMPACT
01300	.<< Put in a footnote. >>
01400	.
01500	.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
01600	.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
01700	.
01800	.FOOTSEP ← "__________";
01900	.AT "$$" ENTRY "$"
02000	.	⊂
02100	.	NEXT FOOTNOTE;
02200	.	FOOTNOTE!;
02300	.	SEND FOOT
02400	.		⊂
02500	.		BEGIN "NEXT FOOTNOTE"
02600	.		SELECT 1;
02700	.		SINGLE SPACE
02800	.		SPACING 0 MILLS
02900	.		INDENT 0,0,0;
03000	.		(FOOTNOTE! & " ");
03100	ENTRY
03200	.		END "NEXT FOOTNOTE";
03300	.		⊃;
03400	.	⊃;
03500	.
03510	.THUNL←BEWARE(STRING);
03520	.AT "↓_" ⊂ SNEAK(BEWARE("'177'1'46")) ⊃;
03530	.AT "_↓" ⊂ SNEAK(BEWARE("'177'1'51'6")) ⊃;
03540	.<< ABOVE FOE HEAVY UNDERLINE >>;
03600	.TURN ON "%↑↓[&]","α"
03700	.at "!!" txt ";"	⊂
03800	.("↑[%3"&"txt"[1]&"]&↓["&"txt"[2]&"]%*");
04000	.  ⊃
04100	.PAGE←28
04200	.NEXT PAGE